{$CLEO}
0000:

while true
  wait 250
    09E6:  1 
end